button (84,0,42,22) 'Repl&y' if %focus=1 perform reply_mess, resume
button (126,0,42,22) '&Print' set %i listbox(%focus), set %table %focus-1, perform printmess, resume
button (168,0,42,22) '&Forward' if %focus=1 set %forward 1, set %i listbox(1), record read 0 at %i, set $forfile trim(@r0.2) | ".DCM", perform compose_mess, set %forward 0, resume
button (210,0,42,22) '' ;resume ;"Mark"
button (252,0,42,22) 'Mark &Del.' set %table %focus-1, set %active %focus, set %i listbox(%focus), perform mark_del
button (80,159,145,22) 'Re&turn to Menu' perform close_mess, if %can=1 resume, else return
listbox (202,27,64,44) 5 0 COMBOBOX if %focus= 1 set %table 0, perform sort
message (167,28,34,10) 'Sort by:'
dialog end
wait resume
goto forum_dialog
*close_mess
if %del1 > 0 or %del2 > 0 perform ask_del
if %can=1 return
table close 0
table close 1
table clear 0
table clear 1
table close 5
table clear 5
return
;
;confirm batch delete of marked messages
;
*ask_del
%tdel=%del1 + %del2
Dialog (,,180,) "Message Delete"
icon (,12,,) caution
if %tdel > 1 $m1=" messages are ", $m2 = " them now?", else $m1=" message is ", $m2= " it now?"
Message (,12,,) str(%tdel) | $m1 | "marked for deletion."
if substr($downdir,%l,1)<>"\" set $downdir $downdir | "\"
perform saveall
return
*dyna_set
$name=edittext(1)
$pass=edittext(2)
perform encode
$phone=edittext(3)
$downdir=edittext(4)
dialog cancel
return
;
;routine to create account settings file
;
*saveall
file delete "account.inf"
table define 11 TEXT "account.inf"
set @r11 $name
record write 11
set @r11 $pass
record write 11
set @r11 $phone
record write 11
set @r11 str(%mail)
record write 11
set @r11 str(%files)
record write 11
set @r11 str(%messages)
record write 11
set @r11 str(%send)
record write 11
set @r11 str(%upload)
record write 11
set @r11 $downdir
record write 11
set @r11 str(%sec0)
record write 11
set @r11 str(%sec1)
record write 11
set @r11 str(%sec2)
record write 11
set @r11 str(%sec3)
record write 11
set @r11 str(%sec4)
record write 11
set @r11 str(%sec5)
record write 11
set @r11 str(%sec6)
record write 11
set @r11 str(%sec7)
record write 11
set @r11 str(%sec8)
record write 11
set @r11 str(%lib0)
record write 11
set @r11 str(%lib1)
record write 11
set @r11 str(%lib2)
record write 11
set @r11 str(%lib3)
record write 11
set @r11 str(%lib4)
record write 11
set @r11 str(%oldlist)
record write 11
table close 11
table clear 11
return
;
;password encode/decode routines
;
*decode
return
;set %pl num(substr($pass,1,2))
;set $pass substr($pass,3,%pl)
;set $pass decrypt($pass,"PASS")
;return
*encode
return
;set $pass encrypt($pass,"PASS")
;set $pl str(length($pass))
;set $pass $pl | $pass
;return
*about
dialog (,,156,170) 'PCContact/Windows 0.96'
message (12,8,132,72) " PCContact/Windows was written by Paul Bonner as part of PC/Computing's on-going Windows Project series. The entire project was produced using Future Soft Engineering's Dynacomm."
message (12,53,132,72)" The PCContact/Windows script is intended for demonstration purposes only. No warranty is made concerning its fitness for any other purpose."
message(12,100,132,72)" For more information about Dynacomm, visit the Future Soft Engineering section of the WINAPA forum by typing 'GO CIS:WINAPA' at any Compuserve prompt."